home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 0022-3.564 / dmg-3313 / programs / pascal / odds.pas < prev    next >
Pascal/Delphi Source File  |  1998-10-23  |  382b  |  20 lines
  1. PROGRAM Conversion_Chart;
  2.  
  3. USES
  4.     CRT;
  5.  
  6. CONST
  7.      Miles_to_Km = 1.82;
  8. VAR
  9.     Miles        : Real;
  10.     Km           : Real;
  11.  
  12. BEGIN
  13.      Miles := 10;
  14.      Km := Miles * Miles_to_Km;
  15.      WRITELN (Miles:3:0,' Miles equals ',Km:3:0,' Km);
  16.      REPEAT
  17.      Miles := Miles + 10;
  18.      WRITELN (Miles:3:0,' Miles equals ',Km:3:0,' Km);
  19.      UNTIL (Miles = 100);
  20. END.ə